Public Partial Class FrmEquipamientoUnidad
    Inherits System.Web.UI.Page

    Private tblEquipamientoUnidad As CapaDeNegocios.nEquipamientoUnidad = New CapaDeNegocios.nEquipamientoUnidad()
    Private tblEquipamiento As CapaDeNegocios.nEquipamiento = New CapaDeNegocios.nEquipamiento()
    Private TblUnidad As CapaDeNegocios.nUnidad = New CapaDeNegocios.nUnidad()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            LLenar_Grid()
            LlenarCboEquipamiento()
            LlenarCboUnidad()
        End If
    End Sub

    Sub LLenar_Grid()
        GVEquipamientoUnidad.DataSource = tblEquipamientoUnidad.Buscar(0, 0, New Date(), New Date(), "")
        GVEquipamientoUnidad.DataBind()
        LimpiarCampos()
    End Sub

    Sub LimpiarCampos()
        TxtFechaAlta.Text = Now.ToShortDateString
        BdpFechaBaja.SelectedValue = ""
        TxtObservacion.Text = ""
        HFEquipamientoUnidad.Value = ""
        LlenarCboEquipamiento()
    End Sub

    Sub LlenarCboEquipamiento()
        CboEquipamiento.DataSource = tblEquipamiento.Buscar(0, "", New Date(), New Date(), "", 0, 0, 0)
        CboEquipamiento.DataTextField = "Nombre"
        CboEquipamiento.DataValueField = "CodigoEquipamiento"
        CboEquipamiento.DataBind()
    End Sub

    Sub LlenarCboUnidad()
        CboUnidad.DataSource = TblUnidad.Buscar(0, 0, "", "", 0, "", "", New Date(), New Date(), 0, 0)
        CboUnidad.DataTextField = "Dominio"
        CboUnidad.DataValueField = "CodigoUnidad"
        CboUnidad.DataBind()
    End Sub


    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkEliminar.Click
        If HFEquipamientoUnidad.Value <> "" Then
            tblEquipamientoUnidad.Eliminar(Convert.ToInt32(CboEquipamiento.SelectedValue), Convert.ToInt32(CboUnidad.SelectedValue))
            HFEquipamientoUnidad.Value = ""
            LLenar_Grid()
        End If
    End Sub


    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkBuscar.Click
        GVEquipamientoUnidad.DataSource = tblEquipamientoUnidad.Buscar(Convert.ToInt32(CboEquipamiento.SelectedValue), 0, New Date(), New Date(), "")
        GVEquipamientoUnidad.DataBind()
    End Sub

    Protected Sub GVEquipamientoUnidad_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GVEquipamientoUnidad.RowCommand
        If e.CommandName = "Select" Then
            HFEquipamientoUnidad.Value = e.CommandSource.Parent.Parent.FindControl("HFEquipamiento").value
            CboEquipamiento.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFEquipamiento").value
            CboUnidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFCodigoUnidad").value
            TxtFechaAlta.Text = e.CommandSource.Parent.Parent.FindControl("lblFechaAlta").text
            BdpFechaBaja.SelectedValue = e.CommandSource.Parent.Parent.FindControl("lblFechaBaja").text
            TxtObservacion.Text = e.CommandSource.Parent.Parent.FindControl("lblObservacion").text
        End If
    End Sub

    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkCancelar.Click
        HFEquipamientoUnidad.Value = ""
        LimpiarCampos()
        LLenar_Grid()
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkGuardar.Click
        Dim FechaAlta As Date = New Date()
        Dim FechaBaja As Date = New Date()
        Try
            FechaAlta = Convert.ToDateTime(TxtFechaAlta.Text)
        Catch ex As Exception
        End Try
        Try
            FechaBaja = BdpFechaBaja.SelectedValue
        Catch ex As Exception
        End Try
        If HFEquipamientoUnidad.Value = "" Then
            tblEquipamientoUnidad.Insertar(Convert.ToInt32(CboEquipamiento.SelectedValue), Convert.ToInt32(CboUnidad.SelectedValue), FechaAlta, FechaBaja, TxtObservacion.Text)
        Else
            tblEquipamientoUnidad.Modificar(Convert.ToInt32(CboEquipamiento.SelectedValue), Convert.ToInt32(CboUnidad.SelectedValue), FechaAlta, FechaBaja, TxtObservacion.Text)
        End If
        HFEquipamientoUnidad.Value = ""
        LLenar_Grid()
    End Sub
End Class